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re -1984 23:3 VAX-11 Bliss -32 v4.0-7 1 
Fee ats ra Ee He Rt OS od to 
MODULE dcx_analyze ! Data analysis routines 


rat vor-880" ” 
BEGIN 


' 
. 
APES SSIS IIIT TTT T TTT TTT TTT rere iii iii i iii tii tis iii iiiiiiiiii | 


1 
1 
1 
1 !e ~ 
10 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8B * 
1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
1 } :* ALL RIGHTS RESERVED. 
0014 1 ie rss SOFTWARE IS Ag t oe UNDER A LICENSE AND MAY BE USED AND COPIED * 
0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
8018 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER” * 
0017 1 !* COPIES THEREOF a NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
dt 4 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
sith : ;* TRANSFERRED. 
0021 1 ie He 3 gt ee IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 ¢ 1 !e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8 ? : :: CORPORATION. : 
0025 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ ®* 
oo $ ; :: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
i 
80 3 : | camnanaseanionemenanntsnetnteeienmnaneenatinnahaiamann statin need niilttsinanebiens 
SOP Tee 
00 § 1! 
4 Z : FACILITY: 
09 5 ; DCX == Data Compression / Expansion Facility 
+4 ? ; ABSTRACT: r 
0039 1! The Data Compression / Expansion procedures provide a general 
Bpee ! method for reducing the storage requirement for a arbi rary data. 
6042 1 |! ENVIRONMENT: 
0043 1! 
Ope : VAX native, user mode. 
0046 1 i- 
43 : FS, 
‘3 ! AUTHOR: David Thiel 
Ba : CREATION DATE: July, 1981 
38 ' MODIFIED BY: 
055 1: v03-001 DwT0078 David W. Thiel 22-F eb-1983 
26 ' Add support for estimated size of data to be compressed. 
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; “0 1 ZSBTTL ‘Declarations’; 

3; 6 1 

3 $¢ 1 LIBRARY 

; 6 1 *sysSlibrary:starlet'; ! System macros 
; 66 1 REQUIRE 

co oe 1 ‘prefix’; ! DCX macros 

3 $8 1 REQUIRE 

3 6 1 *‘dcexdef'; ! DCX public structure definitions 
; 68 1 REQUIRE 

3 , : "dcexprvdef'; ! DCX private structure definitions 
: f} : random tree insertion macro 

: 7 ss format of tree entry: 

$ 74 1! 

3 75 1! rrr . 
he . 1! : ptr to tree with keys < this entry : 
co ow 1! : ptr to tree with keys > this entry : 
$ 78 1! i ptr to List with keys = this entry : 
; #79 8 1! | key vaiue : 
4 8° 047 1! ). Seeewenneitw Gee eeeeseeeeeeeeeeeeene es 
3 1 480 1! 

3 Hy 4 1 MACRO 

3 i. ¢ 1 tree_insert (header_address, item_address) = 
3 m 0483 1 BEGIN 

3 5 m 0484 1 

; «686 m 0485 1 BIND 

3 af : : : it = (item_address) : VECTOR C, LONG); 
;s i Oc8s 1 LOCAL 

. m 0489 1 ah : LONG; 

 ) ™ 0490 1 

3 4 m 0491 1 it (0) = 0; 

= ™ 3 1 it Ci) = 0; 

; | (94 m 0493 1 it C2) = 0; 

s 9 m 0494 1 h = (header_address); 

3 36 " 439 | OnILE ee NEQA 0 DO 

: 98 ¥ 39 1 IF ._it C3) LSSU .VECTOR C.._h, 3] 
; 99 m 0498 1 THEN” 

; 100 m 0499 1 VECTOR C.._h, 0) 

: 101 ™ 0500 1 ELSE~ re -it (3) GTR’. VECTOR hea Me Ba 
3 Ie m 0501 1 THE 

; 1 M ; ; 1 = VECTOR C.._h, 1] 

. | ‘4 1 EL 

3; 105 m 05 1 oEGIN 

: 196 m 0505 1 it (2. = ToR Eo ecr, C 

: 10 m 0506 1 “h = 337" 

: 108 m 0507 1 EXITLODE, 

: 1% m 0809 “ 

; 111 m 0510 1 h = _it (0); 

3 Bt 4 511 1 ° 

a. ial 216 1 tree_least (header_address) = 

: 1146 m 0515 1 BEGIN 

: #115 m0514 1 

; 116 m0515 1 LOCAL 
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FUSS 
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PUP PPVPAASII EB BE EEE EEE 


a a a a em ed a et td dd = = 2 ss = 2 


h = (header_address); 
TF .. hn EQLA 
THEN 


_@ : REF VECTOR C, LONG), 
n : LONG; 


0 
ELSE 
BEGIN 
WHILE .VECTOR C.,_h, 0] NEQA 0 DO 
wh = VECTOR Cy. h oF 
IF (“q = .VECTOR b.7_h, 25) NEQA 0 
THEN 
OE CTOR C...h, 2] [2] 
ee oO = e ° 
q (85 x <4 
END 
ELSE . 
_@ = VECTOR C.._h, 01; 
“an 53°29 C1); 
END 
END 
END2; 
EXTERNAL ROUTINE 
dcxSctx check : Lkg_ctx_check, 


dcx$map_check : lkg_map_check, 
' Allocate memory 


dcx$free_vm 


EXTERNAL LITERAL 
dcx$_invarg, 
dcx$_invctx, 
dcx$_invitem, 
dcx$_normal; 


FORWARD ROUTINE 
process_item, 
make seg. 
dcx$analyze_init, 
dcx$analyze_data, 
huf fman_size, 
remove_seg, 
eliminate_seg. 
dcx$make_map, 
dcx$analyze_done; 


yr dx : ! 
ADDRESSING _MODE (GENERAL) ; 


! Check context block 
! Check map 


Deallocate memory 
General string copy 


process item list 

make a segment 

initialize for data analysis 
process data record 


' compute size of Huffman encoded data 
! remove one segment 

! eliminate unprofitable segment 
' compute comp / exp function 

! delete analysis context 


ey Pa 
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process_item = Process Item List 14-Sep-19 R 


4.0-74 P 
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RETURN dcx$_invitem ! even Length List 
INCR i FROM 1 TO -List £0) BY 2 DO 


BEG! 
yeas -list C.i] OF 


Cdcx$c_ bounded): 
ant Canl$v “ bounded) = ,.list C.i + 1); 


168 $6 1 ZSBTTL ‘process_item - Process Item List’ 

176 és 1 poutine process_item (ant : REF BBLOCK, List : REF VECTOR C, LONG]) = 

1% $3 'e¢ 

17 7 ' 
ive f Compute size of Huffman Encoded Data 
17 74 i Inputs: 

193 RS be | 
178 a i ant Address of anl structure 
1 7 i list Address of item List 

180 7 i 
1 57 i Outputs: 
1 5 i 

1 5 i NONE | 
1 5 i 
1 5 i Return value: 
1 58 i 

1 58 i status code 
1 058 i | 
1 58 ie | 
1 58 

1 58 IF NOT .List (0) | 
1 5 H 

1 } 
1 
1 
1 

1 

1 

; 


| 

| 

Cdex$c res —_— 

ant Canl$v_one_pass] = ..list C.i + 1); 

| 

} 

| 

| 


Cdcx$c_est_records): 
BEGIN ~ 
ant Canl$v_est_recs] = true 
_ anl$l"est_d_recs] = "*tist {C.i + 1); 


Cdcx$c_est_bytes): 
BEGIN ~ 


o3383 
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SRENISSELESP ON STONE OTERO SSS 
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Se Oe Se Se Se Ge Se Se Be Ge Ge Se Ge Se Se Ge Ge Se Ge Se Ge Ge Se Ge Ge Se Se Ge Ge Ge Ge Fe Se Fe Se Gs Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se eee Se eee 


RUNVS SONS AF UW =SSHIESAR PWV OO ERE WO LO Doe On Rote 


11 antl Canl$v_est -bytes] = true; 

19 ant Cani$lrest-d bytes) = ..list C.i + 1); 

\7 END; 
15 Cdcex$c_list): 

1g perform (process_item (.anl, .list C.i + 1))); 
18 TES; 

1 END; 

31 RETURN dcx$_normal; 

2 END; ! Of process_item 
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, #0. i, @ANL 
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. 9513 


) 


om -> Ws 
ee 


own 
uw 


r 
~ 

» 
— 


De 
w 
~ 
a] 
— 
—) 
—DZD 
“Oo 


ae abide ee 42 sS a oe A 

So 

~ 

. 

_ 

o 

~ 

» 


PD—~WZRHOPAD —~HOHD—KHODOR— ODO 


PROC SS_ITEM 
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ERS)” S42 1, 28 
#DCX$_NORMAL, RO 
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process_item = Process Item List 
; Routine Size: 158 bytes, Routine Base: S$CODE$S + 0000 
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6 1 ZSBTTL ‘make_seg - Make a tree segment’ 


1 poutine make_seg (anil : REF BBLOCK, parent_seg : REF BBLOCK, char : LONG) = 
ie 
Compute size of Huffman Encoded Data 


AAO 


ViFWN—OODNAOUEWN—O0ONO 


: 
6 ? Inputs: 
6 : i ant Address of anl structure 
. parent_seg Address of parent anlseg structure or 0 
5 char Transition character into segment 
4 6 $ i Outputs: 
" 3 5 NONE 
BOS | sear val 
: r e: 
: Ose ; eturn valu 
4 064 ; status code 
1 pete } 


064 LOCAL 
64 aniseg : REF BBLOCK; 


— (dcex$get_vm (anlseg$k_length, anlseg)); 
anl Canl$w_nsegs] = .anl CanlSw_nsegs) + 1; 
if -parent_seg EQLA 0 


ant Canl$b septhy = 1 
FUSE IF .parent_seg Canlseg$b_depth] EQL .anl Canl$b_depth) 


N 
ant Canl$b_depth) = .anl fool se depth) + 1; 
insque (.anlseg, .anl Canl$l_blinkJ); 

if _<perent_ceg NEQA 0 


HPAAAAA ANI 
WO OONO VU EWN OOO NO 
oo 
oan 
UMMM 
DONA ULS WI OOo 


SPSS OOS 


Ss 
SESITESIE 


AAO 


parent_seg Canlseg$w_sons] = “parent.seg Canlseg$w_sons] + 1; 
anlseg antsegsl size = anlseg$k_length; 
anlseg Caniseg$w_id) = 0; 
aniseg Caniseg$w_char] = .char; 
aniseg Laniseg$w_active] = 0; 
aniseg Caniseg$w_active_r] = 0; 
if -qperent.seg EGLA 0 


Rav 


Mwy 


ad 
-oo 


RIPPOPIPDNDNDANDPINDPINININININYAENININININIPINIPININININININININININININY 
Fs 
So 
oo 


7 

7 Ose anlseg Caniseg$b_depth) = 1 

o 0670 ELSE 

74 71 anlseg Caniseg$b_depth] = 1 + .parent_seg Canlseg$b_depth); 
75 % anlseg Laniseg$b_max_char] = %X‘00'; 

7 7 anlseg ant segsp_ain.char = XX'FF’; 

7 674 aniseg Lanlseg$b_escape) = 0; 

78 75 anlseg antsegev. tent = true; 

79 O76 aniseg [anlseg$v_solid] = false; 

80 7 anlseg ani segev.escage) = false; 

81 67 anlseg Lanlseg$v_base] = true; 

82 67 aniseg Laniseg$v_unbounded) = NOT .anl Canl$v_bounded); 


DCK_ANALYZE 18-5¢ -1984 23:38: VAX=11 Bliss-32_V4.0-74 Page 9 
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3 9 anlseg [anlseg$w_sons] = 0; 
aniseg Laniseg$w_max_code] =_0; 
5 anlseg an| segey.mapseg.s ze) = 0; 
anlseg Laniseg$l_prev] = sbarent.seg; 
aniseg Laniseg$l_comp its = 0; 
aniseg Lanlseg$l"ad: Bits) = 0; 
aniseg$l_ chars) = 0; 
IF .parent_seg NEQA 0 


CHSCOPY ( 
jbarent_seg Canlseg$b_depth] - 1, parent_seg Canlseg$t_string], 
» char, 


PARKA AO 
WO CONGO wr 
oe 
23 
— 
w 
@ 


anlseg$s_string, anlseg Canlseg$t_string] 
IF .parent_seg EQLA 0 
THEN 


BEGIN 

DECR index FROM anlseg$c_next - 1_T0 ¢ DO 

ne VECTOR Caniseg Canlseg$i_next], .index] = .anlseg; 
ELSE 

BEGIN 


LOCAL 
seg : REF BBLOCK; 


BIND 
pnext = parent_seg Canlseg$l_next] : VECTOR C, LONG], 
ptrs = anlseg Can segs next] : VECTOR f- LONG]. 
ca = anlseg Caniseg$t_sfring] : VECTOR C, BYTE); 
} 


o°°00 
SSSSSSSSSSS 00000 
LESLENVLSSSLESSR 3 


2 


pnext C.char] = .anlseg; 
seg = .anl Cant$l_flink); 
WH LE 2seg NEQA anl Canl$q_queue) DO 


NN 


WN IAAI AI AIR PONOPONNNUNIN  - e 


sptrs = se Canlseg$l_next] : VECTUR C, LONG), 


0 
ELSE IF CHSEQL ( 
-anlseg Cant segsb_ depth ~ e- 
ng) + }. 


WAAL AAI MAI AI AIS RIPIPIPININININIY 4 2 9  @ 2 QOOOOOOCOS wOOODDOOOOOOD 
SSSSRL NSS SSVSE Ur HO OONA MAKE WIN MODSR NEAR Gee OS ue em oe 


SOSOSSOOOSSOSOOOSOSOSSSoQDIoooooccococooooooo0o 


AME WO OONO UE WN OO ONOUES WN O00 


oo et at ot ot ot ot ot ot et et et et et eee ee 


7 

7 

4 snext = sptrs C.char]>: REF BBLOCK; 

7 IF .seg EQLA .anlseg 

4 ‘on 

7 ELSE IF .anlseg Canlseg$b_depth] EQL 2 

7 THEN 

7 sptrs C.char) = Tgp he 

i fise F .seg Canlseg$b_depth] LSS .anilseg Canlseg$b_depth] | 
7 0 

4 3233 IF .snext Canlseg$b_depth] GEQ .anlseg Canlseg$b_depth] 
7 

7 

7 

7 

7 


anlseg Canlseg$t_ Str 
: fantseg$B depth 


Be Se Se Se Se Ge Fe Se Se Ge Ge Ge Ge Se Ge Se Se Ge Fe Se Se Ge Ge Ge FH Se Ge Ge Se Se Ge Se Se Se Se Ss Se Se Se Se Se Se Se Se Se Se SH SH Ss Se Se Se Ge Se Se Sees 


-anlseg 
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make_seg - Make a tree segment 14-Sep-1 DL SKSVMSMASTER COCK SRCSANALYZE..832:1 . 
; 9 7 ? seg Canlseg$t_string] + 1 + (.seg Canlseg$b_depth] - .aniseg Canlseg$b_depth]) 
; 34 7 § 4 THEN 
; 34 740 & sptrs C,char] = “ani seg: 
: 544 74 569 = ,seg fanlseg$t_flink 3 
3 *? iS END; 
; rh 744 seg = .anl Cant$l_flink]; 
; 348 745 INCR index FROM 1~TO .anlseg CantsegSb_depth -20 
; 349 re seg = ,VECTOR (seg pent Soget next ca C.indexJ); 
: 3 gre oo (4tanlseg$c_next, seg anlseg$(_next » anlseg Canlseg$l_next)); 
3 33 74 RETURN dcx$_normal; 
3 3 750 
3 «6354 751 END; ! Of make_seg 
OFFC 00000 MAKE_SEG: 
~WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 
SE oc ¢2 0000 SUBL2. R12, SP : 
08 AE SF 0000 PUSHAB ANI SEG F 
7E 0840 8F 3c 00008 MOVZWL hd -(SP) : 
00006 CF 02 Fe 0000 CALLS #2, DCXSGET_VM : 
01 5 O0t¢ BLBS § STATUS, 1$ : 
4 0001 RET é 
50 04 AC i) Ba 16 18: MOVQ ANL, RO : 
16 AO B6 OOOIA INCW 22 (RO) : 
51 D5 0001D TSTL hea 5 
06 1 Boose BNEQ 2s 3 
14 AO 01 90 00021 MOVB #1, 20(RO) 3 
0A 11 000 ; BRA 3$ 3 
14 AO 14 Al 91 00027 2$: CMPB O(R1), 20(RO) F 
03 12 0002C BNEQ $ 3 
14 AO 96 0002E INCB 0(RO) 3 
1¢ +! 8 BE OF 0031 3$: INSQUE @ANLSEG, @28(RO) 3 
7 AC 00 000 MOVL PARENT_SEG, R7 ; 
51 D4 4 & CLAL R1 3 
57 1 03C TSTL R7 3 
23 1 00 BEQL 4$ F 
1 06 0004 INCL : 
1 A? B8 4 INCW 28(R7) 3 
56 0 AE g 45 4$: MOVL ah 5S. R6 3 
08 A6 084 8F C 4 MOVZWL Hf 8(R6) 3 
0C Ab B4 0004F CLRW (R6S : 
59 0c A 0 000 ¢ VL HAR, RI 3 
OE A6 59 3C MOVZWL RO, 14(R6) : 
12 Ab B4 A CLRW =: 18 (R6) ; 
04 AE O04 2p CLRL 4(SP) : 
5 0 TSTL R7 3 
09 1 of BNEQ 5$ 3 
04 af 3 INCL 4(SP) 3 
14 A6 67 MOVB #1, 20(R6) 3 
° 1 ben BRB 6$ 3 
14 A6 14 A? 81 00060 5$ ADDB3 #1, 20(R7), 20(R6) 3 
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4 A200 make_seg - Make a tree segment if-te $P-138e 93:78:18 ST KsuMemAStERs COCK see ANALYZE .832;1 foee a5 
eae tO 
He GR et pe 
0 30 A6 A 00147 14%: MOVZBL 4 (RG) CINDEXI, RO t 0746 
se 043C C440 0 16¢ MOVL 1084(SEG)CROJ, SEG ; 
FI 1 rs 13 15$: AOB! Fa R JNDEX 14 : 
6A 043¢ cs 0404 F 28 00156 MovCS #1028, 1084(SEG), (R10) : 
0 000000006 8F BO 2 16$: MOVL #OCXS$_NORMAL, RO : 


; Routine Size: 358 bytes, Routine Base: SCODES + O09E 


Be Se Be Be Se Ge Se Se Se Se Se Se Se Ge Se Ge Se Se Se Ge Ge Se Se Ge FH Se Se Ge Se Gs Oe Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se Fe Se Se Se Se Se Se Se Ge Se Ge ee 


dcxS$analyze_init = Initialization for data anal 15-3en-19 $3 #8: 8 


7 
4 
5 


SANS 
wono wn 


a ~~ 


WN "SO OONOULSWN—O 


~ 
On ~~ 


} ZSBTTL 


'e¢ 
i 


i Initialization for data analysis. 
: Allocate and initialize context area. 


i Inputs: 
i Outputs: 
i Return value: 


status.wic.v 


! 
' 
' 
1 
! 
! 
' 
' 
! 
i 
' 
' 
' 
! 
dcx$_normal ALL is well 
! 

' 


LibS_insvirmem Error allocating memory 


BIND 

ctx = .context_addr : REF BBLOCK; ! address of context block 
LOCAL 

ant REF BBLOCK ' address of antl block 
enises ¢ REF BBLOCK; ! address of anlseg block 
ILTIN 

ACTUALPARAMETER, 

ACTUAL COUNT 

NULLPARAME TER; 


tx Cctx$l_size]”-= ctx$k_fixed_lén + anl$k_léngt 
ctx ctx$b type) =_ctx$c_anlyz; 
ctx (ctx$w_version] = ctx$c_version; 
ctx Cctx$l"san fyd = gprs. Sanity; 
ant = ctx Ectx$l sgec! 
ant Canl$v_bounded false; 
ant Lanl$v_one_pass] = fa! se; 
ant Canl$v_est_ yteqs = false; 
- = false; 
ant Canl$l_est_d g.bytes] =) = 3 


ant Cani$i-d bytes = s 05 
ant Cani$it- “4: eal 2 


pers rm tie vm (ctxS$k_fixed_len + anl$k glength. ctx)); 


= ant Canl$l_blink] = anl Canl$q_queue); 


‘a=e 
~w 


Ci SRCSANALYZE. B32; (39 
*dexSanalyze_init = Initialization for data analysis’ 
1 oem ROUTINE dcx$analyze_init (context_addr, item, value) = 


ontext_addr.wz.r Address of conyers Longword 
tem.rl.r Item code (option 
value.rl.r Value sesec tated | with item (optional) 


context_addr Address of context block is stored 


dcx$_invitem Invalid item code or missing item value 


DCX_ANALYZE 
=000 


Shek ek dhe ke ee ee ee et et ed 


AALEPOPIPONININGPYNINYNY 2 PP OP OO 


N—OOONAMNEWN “OOOO ew 


seer a 


dcxS$analyze_init = Initialization for data anal 18-520-1984 $3:78:18 : 


DNAVNE WN" OVOONOUS 


10 


if NOT ACTUALCOUNT () 
HEN 


URN dcx$_invitem; 


rer ! even number of arguments 
INCR AT FROR TO ACTUALCOUNT () BY 2 DO 


LOCAL 
List : VECTOR C3, LONG); 


List (0) = 3; 

List £1] = .ACTUALPARAMETER (.1); 
List C2] = ACTUALPARAMETER (.i + 1); 
erform (process_item (.anl, List)); 


ND; 
periore (make seg (.ani, 0, -1)); 
ECR char FROM anlseg$c_next - 1 19 0 00 
erforu (make seg (.anl, .anl Cani$l_flink], .char)); 
RETURN dcx$_normal; 


END; ! of dex$analyze_init 


001¢ 00000 
SE oc ¢ 90008 #i2, SP 
04 AC DD 0000 PUSHL CONTEXT_ADDR 
3C DD 00008 PUSHL 
00006 CF 8 FB OOOOA CALLS #2, DCX$GET_VM 
73 E9 OO00F BLBC STATUS, 4$ 
52 04 BC 00 90012 MOVL @CONTEXT_ADDR, R2 
82 D0 9016 MOVL #60, (R2J 
94 00019 CLRB 3s (R2S+ 
03 A2 64 0001B CLRW (Re) 
07 A2 4F317C65 BF DO OODIE MOVL #1328 
3 OF CO 00026 ADDL2 #15, ANL 
6 F BA 00029 BICB2 #15. (ANL) 
0c A2 7C 0002C CLRQ 12(ANL) 
04 Ad 7C 0002F CLRQ  4(ANL) 
14 A2 94 000 2 CLRB QCANL) 
16 =A B4 90 CLRW (ANL) 
50 18 «OA 8 MOV BEANE) RO 
I¢ A 3 D 0 ¢ MOVL RO, : (ANL) 
18 «OA D 4 MOVL RO. 24(ANL) 
Q é¢ E8 00044 BLBS (AP), 1$ 
000000006 8F i 0047 ROVL #OCX$_INVITEM, RO 
54 $6 A 8 4F 1$: MOVZBL (AP), R4 
p4 2 CLRL 
1 1 BRB 
$e 03 00 000 $ 2$: MOVL # bist 
5 6C43_D MOVL (AP) E13, RO 
4 AE 6 D D MOVL (RO) t Ist +4 
8 AE 04 acé3 D 61 MOVL 4 (APSCIJ, LIST+8 
4004 af BB 00067 PUSHR #*M<R2,SP> 
FD8C OCF 2 FB 00068 CALLS #2, PROCESS_ITEM 


A 
ISK 


sENTRY DCXSANALYZE_INIT, Save R2,R3,R4 
SUBL2 


4 Page 4 
CSANALYZE.B32:1°%" (5) 


estan 


FFOD 


3; Routine Size: 


10 
dcxSanalyze_init = Initialization for data anal 13-Sen-1984 $3:78:18 5 


rea 


; 
ah i 0100 o | 


FEO! 4 


: 
“| 


56 000000006 


oo MM*OOCOWwNTO IO TM 


fForowoo0gno@wo £m—o 


167 bytes. Routine Base: SCODE$ + 0204 


7 
3 3$: 


As 


09C 


QOA6 6$: 


Ax-11 Bliss-32 Vv 
ISKSVMSMASTER: cbe 

BLBC =. STATUS, 

ACBL Ré, £ 8 2$ 

MNEGL -(§P) 

CLAL = “{ép) 

PUSHL 

CALLS MAKE Fait 

BLBC ett 

MOVZWL 3356u 

PUSHL 

PUSHL 24(ANL) 

PUSHL 


ANL 
CALLS ae MAKE _SEG 
BLBC STATUS, 3 


MOVL apens y me, RO 


OSRCSANALYZE. 832;1 


Page 


1b 305-1 


ic); 
ant Canl$l_d_bytes] = .anl Canl$l d_bytes) + len; 
ant Cant$i"d' recs) = .ant Canl$l_d_fecs) + 1; 
an seg = .ant Cant nk); 
DECR 1 FROM .len-1 10 0 DO 

BEGIN 


a 


BIND 
count = anlseg Canlseg$l_count] : VECTOR C, LONG), 
next = anlseg Caniseg$l_next] : VECTOR C, LONG); 


aniseg Canlseg$l_chars] = .anlseg Canlseg$l_chars] + 1; 


bay ae a 2p ay a ap at 
SESS 

Sogo oo Goose = ~~ 
Aruna ooo 


4 23:38: VAX-11 Bliss-32 V4.0-74 Pa 16 
=000 dcxSanalyze_data - Analyze data record 12-800-1 984 $3:78:18 DLSKSVMSMASTERSCDCK. SRCSANALYZE.B32:1 we (6) 
; : : 1 ZSBTTL ‘dexSanalyze_data - Analyze data record’ 
3 2 SL D6AL ROUTINE dcx$analyze_data (context_addr, rec : REF BBLOCK) = 
; 4 3 res 
; 4 4 2! 
; 4460 5 ' Analyze data record 
3 661 $ ! 
s “a Inputs: 
+ 444 3 i context_addr.mz.r Address of context longword 
: an re } rec.rt.dx Descriptor for (text) data record 
3; 6 i Outputs: 
: Gas Beg § | CUthu 
3 re} 345 } context_addr.mz.r Context block accumulates data 
; $2) 8 § ; Return value: 
; rt O88 status.wilc.v 
: 455 0850 i dcx$_normal ALL is well 
; 45 851 : dcx$_invctx Invalid context block 
; 45 et: leo 
: 458 Bae 
3; 459 854 BIND 
; 460 et ctx = .context_addr : REF BBLOCK; 
: 38 OBS? 5 LOCAL 
: 46 0858 addr : REF VECTOR C, BYTE), ! address of data 
: 464 0859 len, ! Lengh of data 
; 465 0860 ant : REF BBLOCK 
3 4666 0861 anlseg : REF BBLOCK, 
; 467 Bag status; ' returr status 
; 468 086 
3; 469 0864 ' check context block 
; 470 Bae2 ! 
; «471 ¥$] perform (dcx$ctx_check (.ctx, ctx$c_anlyz)); 
; 47 B30 
3 ri re) : get address of data record 
; rik 08 perform (Lib$analyze_sdesc_r2 (.rec; status, len, addr); .status); 
: of ; § : accumulate statistical information 
: 47 8 4 ant = ctx Cetx$l_specif 
; 0876 


DCX_ANALYZE 
=000 


Se Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge ee 


SSSSSSSS9 


3; Routine Size: 


d 10 
15-Sep-1 
14-Sep-1 


count C.addr (0)) = stoynt fader (03) + 1; 


dcxSanalyze_data - Analyze data record 


aniseg = .next L.addr 
addr = .addr + 1; 


EN 
F true 
9 EN 
, BEGIN 
94 BIND 
95 count = anlseg Canlseg$i_count] : VECTOR C, LONG); 
3$ aniseg Caniseg$l_chars) = 
so8 count Cdex$c_eor] = .count Cdcx$c_eor 
rss RETURN dcx$_normal; 
902 END; 
000C 00000 
51 D4 00002 
50 04 «BC 90 0004 
00986 0008 
44 50 €9 00008 
50 08 AC 00 0000 
000000006 98 18 00016 
37 E9 0001 
50 04 BC 14 C1 B00 18 
eo are at 
53 rf A 8 0027 
ac HE HB 
50 8 BR 38 
32 ay 06 0 
53 043C €340 00 000 
51 F4 00030 2$ 
38 OA 4 0040 
C A3 D6 00044 
50 000096006 Sr 8 tines 
4 ith 33: 


83 bytes, Routine Base: S$CODE$S + 02AB 


3Be §3:15:58 — DiScSungmaStenscbexcsncSanac vze..032; 


“pol seg sani cout! chersd + 1; 


! Of dcx$analyze_data 


Of AOA VEE _DATA, Save R2,R3 
@CONTEXT_ADDR, RO 
DEXSCTX CHECK 

T $ 
BSANALYZE_SDESC_R2 

ATuS, 3 


aCONTEXT_ADDR, ANL 
4 (ANL 


r>zoO 
o> S255 


i 
&6) CRO} 
SEG)CROJ, ANLSEG 


To3 


CTOfOo OOP 5 eet SS 
= 
‘2eree- 


A EOIN, BOT BN 
Onna @-cCo-— -— 

<a 

An 
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10 
15-Se -1984 23:38: 
huffman_size = Compute size of Huffman Encoded 12-808-138e $3:78:48 
3 } ZSBTTL ‘huffman_size = Compute size of Huffman Encoded Data’ 


DONOArUN—OD 


WN O OONOUVUESWN “OOONOUES WO 


PUPVSUPVSUSSISIASI 
Suvw 


SRS MR UN OOO NONE WN OO ao 


PAPAIN & & EE EEE 


oo00 


re] 
PPA AASAAII 


23 
OOONOA NEW O ODNOUEWiN 


Be Se Se Se Se Ge Ge Ge Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge FHSS Se Se Se Se Se Ss Se Se Se Se Ge Se Ge Ge Gs Se Se Se Se Se Se Se Se Ge Se Se Se Ge Se Ge ws 


PPV PVP PVD PVDVPV PVD SUSPICIOUS STAIN 


ARENVLS 
DO 
Wrens 


pol int huffman_size (anil : REF BBLOCK, anlseg : REF BBLOCK) = 
17 

Compute size of Huffman Encoded Dave in bits 
Store size in onlsegst comp bite field 
Also fill in anlsegSw_active and anlseg$w_active_r fields 
Also fill in anlseg$b_min_char and anlseg$Sb_max_Char fields 
! Inputs: 


antl Address of anl structure 
anlseg Address of anlseg structure 


Outputs: 
NONE 

Return value: 
Status code 


Oe et ed et et rr ee 


D 

count = anlseg Canlseg$l_count] : VECTOR C, LONG); 
IF NOT .anl Canl$v_bounded) 

THEN 


BEGIN 
anlseg Canlseg$w_active] = dc 
anltseg Lanlseg$v_active_r 
anlseg 


anlseg$b_min_char 
aniseg 


anlseg$b_max_char 
ELSE IF .anlseg Canlseg$l_chars)] 
THEN 
BEGIN 
anlseg Canlseg$b_min_char] = %x'00'; 
anlseg Canlseg$b_max cher = %x'00'; 
anlseg Lanlseg$w_active) = 0; 
aniseg Canlseg$w_active_r] = 0; 
ELSE 


GIN 
anlseg Fant segsoonan cher = %x'00'; 


anlseg Canlseg$b_max cher = %Xx'00'; 
aniseg anlseg$w_active) = 0; 
DECR 1 FROM anisegsc Y TO 0 DO 
If acount -iJ NEQ 
BEGIN 


0-74 Page 18 
OSRCSANALYZE.B32:1°%" (Pe. 


aniseg Canlseg$w_active] = .anlseg Canlseg$w_active] + 1; 


aniseg Canlseg$b_min_char] = .i; 
END; 


DCX_ANALYZE p-1984 X-11 s-32 V 19 
you2000 huffman_size = Compute size of Huffman Encoded 1$-Fep-1984 4 $3; i§: 48 Be SK$V nen TER: cbeKe OSRC ANALYZE. B32; 429 (7) 
H Pp . $ NEQ 

68 i geome Cdex$c_eor] NEQ 0 

3 o8 anlseg fantsegsw. active) = gentses Canlseg$w_active] + 1; 
; +4 jf ,entses anlsegSw_active) NEQ 1 

3 | anlseg Canlseg$w_active_r] = .anlseg Canlseg$w_active] 

; 57 anlseg Canlseg$w_active_r] = 2; 

: 57% DECR | FROM an ant segsc- count=2 To 0 60 

3; S79 IF onal 

3 78 THEN 

; iy 4 BEGIN 

; 578 4 gn seg Canlseg$b_max_char] = .i; 

; i q EXITLOOP; 

; 8 END; é 

; S¢ jf ,entseg Canlseg$l_chars] EQL 0 

; Ht anlseg Fenisegst . comp_bits) = 0 

3 385 it 3 IF .anlseg CanlSeg$w_ active) EQL 0 

; 38 aniseg Canlseg$l_comp_bits] = 0 

3 4 Fist IF .aniseg CanlSeg$w_active] EQL 1 

: 390 noc Or Canlseg$i_comp_bits] = .anlseg Canlseg$l_chars) 

i $98 BEGIN 

: 594 LOCAL 

; 595 I : REF VECTOR (C4, LONG], 

>; 596 0990 p2 : REF vector 4; LONGI, 

; 597 LONG ! pointer into List 
; 598 99 List’ : veCToR [4 * anlseg$c_count, LONG], i Storage list 
: inn 144 zero: L 

: 601 anlseg Saatcogtt gone ital = 0; 

: ooe 0997 ree = false e; 

> 604 998 pi | ce 

; 605 0999 becr 1 FROn - Manda count-1 TO 0 DO 

3 one 1000 4 

; 60 1001 4 7 es f3 gtouat C.t); 

3; 608 4 4 a P NEQ 0 

3; 609 199 4 

3; 610 1004 EN REGIN 

: 611 1005 tree. insert (ptr, pi (0)); 

3 oi¢ 1308 1 ="pl (4); ' bump to next cell 

3 614 1008 ELSE IF (NOT .anl Canl$v_bounded]) AND (NOT .zero) 

3; «615 1009 4 THEN 

3 616 1 19 BEGIN 

; 61 101 ' all zeroes logically consolidate to one zero 

; ois 1 \¢ zero = true; 

3; 61 101 tree_ My iy (ptr, pl £83): 

; 620 1014 1s lt f bump to next cell 

; 621 1015 4 Eno; ° 

; 622 1016 3 END; 


DCK_ANALY AX-11 Bliss-32 V4.0-7 
OE ANAL z€ Vv Bliss age (39 


10 
huffman_size = Compute size of Huffman Encoded 13-Sep-1984 $3:78:48 DLSKSVMSMASTER COCK. SRCSANALYZE.832;4 


: : } V7 i WHILE (pl = tree_least (ptr); (p2 = tree_least (ptr)) NEQA 0) DO 

> 625 1 13 4 J = .p1 (3) + .p2 (32; 

3 6 $ 1 4 Cnlse Lantseg$i_comp B ts) = .anlseg Canlseg$l_comp_bits] + .p1 (3); 
: ° 5 : : prec. nsert (ptr, pi [0)); 

: 6 1 END; 

3; 6 1024 anise tantseg$l_adj_bits) = .anlseg Canlseg$l_comp_bits); 

: ° 1 : 5 RETURN dcx$_normal; 

: 6 : 1 ; END; ! Of huffman_size 


OOFC 00000 HUFFMAN_SIZE: 
- WORD 


ave e a e . P 
Save R2,R3,R4,R5,R6,R7 0905 
5E EFEC CE 9€ 0000 MOVAB =4116(SP), S : | 
q 08 A ! 0000 MOVL _ ANLSEG, RS + 0930 
55 AS 9E 90008 MOVAB 56(R3). R5 : 
51 10 A3 9E OOOOF MOVAB 16(R3). R1 + 0935 
13 06 Bc E 90013 BLBS aANt, {s : 932 
61 0101 8F B80 0001 MOV #25 * (RI) + 093 
12 A3 0101 &F B80 0001 Vw #257. 18(R3) + 0936 
15 Ad FFOO af ac 900 nov #63260, 21(R3) 0937 
2c =A3 DS 0002A 18 TSTL  44(R3) + 0940 
OA 12 00020 BNEG 2$ F 
15 A3 B4 900 F CLRW =. 21(R3) > 0943 
61 B84 00032 CLRW = (R1) > 0945 
12 A3 B4 600 CLRW =: 18 (R3) + 0946 
40 11 00037 BRB 10$ + 0940 
15 A3 B4 00039 28 CLRW =. 21(R3) : 0950 
61 B4 0003C CLRW = (1) : 095¢ 
FF 8F 9A 000 MOVZBL #255 ; : 095 
6540 D5 00042 3$ TSTL = (RE + 0954 
06 13 0004 BEQL 4 4$ : 
61 Bb 004 INCW = (R11) + 0957 
3 0 00049 mova sidI, g1(R3) : 0958 
F4 0004D 4$ SOBGEQ $ > 0954 
0400 ¢ D3 0050 TSTL 624(R5) > 0960 
i ge sane Reh ten a: 
ei t 38 5$ CHP cal), #1 ; $36 
61 Q 6 D MOVY (RI), 18(R3) + 0965 
4 11 6 BRB 7$ ; 
2 BO 6 g$: MOVW Hi 18(R3) > 0967 
FF 8F 9A 00067 7$: MOVZBL #255 ! : 0968 
6540 ? 068 8$: TSTL §~—s CR5) C1 : 0969 
0 6 BEQL «=sO9S. : 
? MOVE I 22(R3) : 097 
1 00074 BRB és : 997 
F4 16 98: SOBGEQ | 8 : 0969 
4 A 9 10$: MOV &(R3), RO : 0978 
Cc a’ OD 7D TSTL  44(R3) : 0976 
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431 bytes, Routine Base: SCODES + O2FE 


3; Routine Size: 


11 | 
vouz000 remove_seg - Remove one segment 1$-Sep-1984 93:78:18 DLSKSVMGMASTER COCK SRCTANALYZE.832:1°%° a 


; 5 ! ! ZSBTTL ‘remove_seg - Remove one segment’ 

SS 1030 ROUTINE remove_seg (anl : REF BBLOCK, anlseg : REF BBLOCK) = 

; 638 1 BEGIN 

; 639 1 \+4 

; 640 1 ; 

3 poh : : } Remove one segment fixing pointers and freeing storage 

3 rk 1 § ! Inputs: 

+ 6446 + ' 

; 645 1038 : ant Address of anl structure | 
g oe 13 9 : anlseg Address of anlseg structure to be removed 

s 1040 : 

; 648 1041 ! Outputs: 
; 649 1006 : 

; 650 104 : NONE 
; 651 1044 : 
3 $26 1045 ' Return value: 

3° 6) 1966 : 
; 654 104 : dcx$_normal 
; 655 1048 } memory deallocation error 

; 656 1049 2! 
; 657 1050 leo 
; 658 1051 

; 659 S26 ! this segment is unprofitable, eliminate it 

; 660 105 : 

; 661 1054 LOCAL 

3 b6¢ 1055 seg : REF BBLOCK ! replacement 

; 66 1056 ant_p : REF BBLOCK; 

; 664 1057 

; 665 1058 remque (anlseg Cont segSq..queve}. anl_p); 

3 666 1059 IF .anlseg Lanlseg$l_prev] NEQA 0 
; 66 1060 THEN 

; 668 1061 BEGIN 
; 669 1996 

: 670 106 BIND | 
3 er ee p.seg = anlseg Canlseg$l_prev] : REF BBLOCK; 

$ 67 1066 p_seg Canlseg$w_sons] =_.p_seg Canlseg$w_sons] - 1; 

3; 674 1067 ség = .anl Canl$t_flink); 

3 675 1068 INCR index FROM 1~TO .anlseg Canlseg$b_depth] - 2 D0 
; 676 1997 & BEGIN 

3 O77 1070 4 
3 678 24 4 BIND 

3; 67 1 i) 4 seg nent = seg Canlseg$l_next] : VECTOR _C, LONG] 
; 680 1073 4 anlSeg_string = anlseg Caniseg$t_string] : VECTOR C, BYTE); 
3 os 1902 4 be = .seg_next C.anlseg_string C.index]); © 

BHR Feel sthd alt at ve 

3 .anl_p antl Canl$q_queue ‘ 

; She 1999 4 BEGIN 

; 687 1080 4 

; 688 1081 4 IND 

; ret 8 ; : next_p = anl_p Canlseg$l_next) : VECTOR C, LONG); 

; 691 1084 4 IF .next_p C.anlseg Caniseg$w_char]] EQLA .anlseg 


1 
Bete 1 Fee Olek htc skeSawanyze.esen° ° 


: ise oo neak'» t. Cant hard) 

: nex antseg Canlse = .$eg; 

; 694 1 5 antip = tnt’ Pp Lanlseg$l_ Pines mi 9 

; £38 1090 pertorn (dcex$fre -va (.an seg Coniseg$i_size), eanlseg)); 
; 69 1091 anl$w_nsegs) = .anl Sw_nsegs] = 1; 

; § 1936 RETURN dcx$_normel; 

; 700 109 

; 701 1094 END; ! Of remove_seg 


OOFC 00000 REMOVE _SEG: 
WORD 


. Save R2,R3,R4,R5,R6,R7 : 1030 

53 08 BC OF 00002 REMQUE @ANLSEG, ANL_P : 1058 

54 08 AC DO 00006 MOVL ANLSEG, R4 > 1059 | 
0 A& DS OO00A TSTL 2(R4) : 
53 13 00000 BEQL $ ; 

50 20 A& DO 0000F MOVL (Ra), RO + 1066 
1¢ AO B7 00013 DECW  28(RO) : 

52 06 AC DO 00016 MOVL = ANL, R2 + 1067 
36 18 A2 DO OOOIA MOVL g4(R2), SEG ; 

5 14 A& 9A 0001 nOVZBL O(R4), R? + 1068 
3 02 ¢2 909 SUBL Wee R7 : 

1 30 Ad 9E 000 MOVAB 48(R4), R1 + 1073 
55 D4 00029 CLRL INDEX : 
0A 11 00028 BRB $ ; 

50 6541 9A 0002D 1$: MOVZBL (INDEX)CR1], RO + 1075 
56 043¢ C640 09 0031 MOVL 1084(SEG)CROJ, SEG ; 

F2 55 57 F3 00037 2$: AOBLEQ R7 INDEX. 1$ + 1068 
53 18 A2 00 00038 MOVL e4iR ), ANL_P : 1077 
50 AG OF 00 F MOVAB 14(R4). RO + 1084 
51 18 A2 9E 043 3$: MOVAB  24(R2), R1 : 1078 
51 53 D1 0004 CMPL  ANL_P, RI ; 

16 13 O004A BEQL © 5$ : 
51 60 3C 0004C MOVZWL (RO), R1 + 1084 
54 043C C341 D1 0004F CMPL  1084(ANL_P)CR1], R4 : 
06 1 0055 BNEQ 4$ : 
043C €341 36 D 909 MOVL SEG, 1084(ANL_P)CR1) + 1086 
53 63 D 05D 4$: MOVL (ANL_P), ANL_P : 1087 
F! 1 969 BRB 3$ : 1078 
4 DD 00062 5S: PUSHL R4 : 1090. 
08 Ad DD 00064 PUSHL  8(R4) ; 
00006 CF 98 FB 9067 CALLS #2, DCXSFREE_VM : 
E E9 0006C BLBC STATUS, 6$ ; 
0 04 aC 0 O06 MOVL NL, RO + 1091 
16 AO B 4 DECW  22(R0) : 
50 000000006 8F BO 076 MOVL § #DCX$_NORMAL, RO + 1092. 
4 00070 6$ RET > 1094. 


; Routine Size: 126 bytes, Routine Base: S$CODE$S + O4AD 


11 
DCK_ANALYZE 1S-5e 1986 23:38: VAX-11 Bliss-32 V4.0-74 Pa 5 
v04=000 ElLiminate_seg - Remove unprofitable segments 12-8001 984 $3: 78:18 DLSKSVMGMASTERSCOCK SRC SANALYZE .832:1 = 33 


: f 3 ! 9% : ZSBTTL ‘Eliminate_seg - Remove unprofitable segments’ 

; 705 1 39 ROUTINE eliminate_seg (anil : REF BBLOCK, this : REF BBLOCK) = 

3 @ 1 38 BEGIN 

: 15 Kw 

3 4 1 Determine if a segment is unprofitable and ifso, remove it 

; ap 1 § ! Inputs: 

; 18 1105 i ant Address of anl structure 

: re 1198 this Address of anlseg structure in question 
; ig 1108 2 ! Outputs: 

s 7 1109 : 

: 5 Wi 3 i see: 

: , 9 Wg Return value: 

; 7 ; 1114 2 dcx$_normal 

FF 1115 ‘ memory deallocation error 

: 726 1118 : 

ee 

a. $ 1119 ! Macro to scale a size based on the ratio of observed to estimated 
; ree 1 ? ! data. 

; 786 m 11 3 MACRO scale_map (size) = 

3; 731 411 BEGIN 

; 738 m 1198 LOCAL 

Poe M11 $ scaled_size : LONG, ! result 

3: 735 411 remainder : LONG, ' throw ovey 

3 $ : i : ext_prod : VECTOR (C2, LONG); ! extended intermediate value 
: 738 m 1130 BUILTIN 

; 739 m 1131 emul, 

RK te 

3; 7% M 1134 emul (ZREF (size), anl Canl$l_ratio_num], ZREF (0), ext_prod); 
; 7 m 1135 ediv (anl Canl$l_ratio_denom], ext_prod, scaled_size, remainder); 
3 746 M11 $ -scaled_size 

: Fee nt ENDE: 

coo 

> 749 1141 aff = this Cantseg$\_prev) : REF BBLOCK 

> 750 1148 this_count = this Lanlseg$l_count) : VECTOR C. LONG), 

3 2) Be next = this Canlseg$l_next]”': VECTOR C, LONG]; 

: 2g 1145 2! If we have no true successors then we can 

; Pee 1368 consider eliminating the current anlseg block 

: 036 1148 if .this Canlseg$w_sons) NEQ 0 

: $8 1180 § (NEN 

; 759 1151 2 ELSE IF .this Canlseg$l_chars) EQL 0 


—s 
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FUSE IF ith 
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Sa 


S52 


wvvvVVVUU 
ee a a a ee a ee a a ee ae a ee ee ee a a ee a el a a ee 


et at tt et 
Ourwnr—o 


i=) 
oo 


(.anl, .this ! Basic map is bigger than data 
ELSE" IF Tr this Cantsegsu, oceive! EQL 0 ° - 


remove seg (.anl, .this) 
Canisegsi_ orev) EQLA 0 


BEGIN 
} check profitability of eliminating the Last block 
iF ¢ 


anlseg$l_comp_bits]) 
s Caniseg$T_chars] - "hts count Cdcex$c_eor]) * 8) 


( 
poeege engthe8 
this Lanlseg$w_active_r] - 1) * (2 + 16)) 


~~ | 
= 


‘ GEQ 0 ! true if current total size is greater 
remove_seg (.anl, .this); 


BEGIN 
: check profitability of eliminating the block 


LOCAL 
aff2 : BBLOCK Canlseg$k_length); 


BIND 
aff2.count = aff2 Caniseg$l_count] : VECTOR C, LONG); 


CHSMOVE (.aff Canlseg$l_size], .aff, aff2); 

otis A jcFROR ant chars] =".aff2 Canlse $1 _chars] + .this Canlseg$l_chars); 
Tseg$c co po -1T 

tte count 2.count C.ij] + .this_count C.i]; 

ger fore Thuf fman_size (ints aff2)); 


(. this Conlsogst. adie its]) 
+ (aff Conl seers adj _Bits)) 
- (.aff2 Canlseg$l_adj_bits)) 


+ scale_map ( 
“(dexsbm$k_length*8 + (.this tant sogsu, active rj] - 1) * (2 + 16) + 


(.this Canlseg$b_max ¥achar) ethis aetivgerso= min n char} + 1) * 16) 

+ (dexsbm$k -te net theS * (Caff orait active _r + 16) + ' 
(,aff~Can seg b_max_char) - fant seqsb. min pa + 1) * 16) 

~ Cdengpase  Longts “+ T.aff2 Canlseg$Sw_active_r] = 1) * (2 + 16) + ! 
(IF ant antsy. nsegs] GIR 
ae gs sett aniseg$b_max_char] - .aff2 Canlseg$b_min_char] + 1) * 16) 


this data 
raw data 


this map 
' null map 
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DCK_ANALY 7E if.3 -1984 :38: VAX-11 Bliss~32 V4.0- e 28 
=000 ELiminate_seg - Remove unprofitable *s 12-80-1382 43:78:18 DISKSVMSMASTER: ce Ch SRCSANALYZE. B32;1 "29 5 
1 OA SUBL R? R1 ; 
i $5 cc wad ws 6. 1 r 
we YA Av g 
12 AY 3° ys i MOVZWL 18(R7), RO F 
12 C4 090A MULL2 #18, RO : 
1 A? 9A QOOAA MOV ZBL é (R7), R2 : 
4 1 A? 9A 000A MOVZBL (R7), RG : 
54 ce B SUBL2 R4, R2 : 
10 € B MULL2 #16, R2 : 
2 C0 ADDL Re. RO : 
§ BB ADDL ; 
1A OA ¢ B MOVZWL ita R2 : 
12 ¢ C MULL2 : 
0 16 OA 81 00¢ CMPW site. : 
13 1B 000C9 BLEQU ; 
51 1E AE 9A 000CB MOVZBL Has a: hl ; 
4 1D AE 9A OOOCE MOVZBL AFF os : 
1 5 ce 6 D3 SUBL : 
1 10 ¢ 06 MULL a6," iy : 
1 10 ¢€0 0000 ADDL2 #16, R1 : 
Q 11 0000¢ BRB aS : 
D4 OOODE 7$: CLRL. 1 : 
1 32 c9 OOEO 8$: ADDLZ R2, R1 : 
0 1 C€2 O00E SUBL2 1, RO : 
6E 00 20 28 = 8 3 Sore ERUL Roy agchahe #0, : 
51 50 j 24 Ag 7B 000FO EDIV. 36(R 35 Ext Pago, XSCALED. SIZE, REMAINDER: 
dr 19 o0rS Ty we 1209 
67 08 08 A? 28 Soore MOVC3 8(R7), AFF2, (R7) ; 121 
56 DD 00101 9S: PUSHL R : 121 
58 DD 00103 PUSHL R : 
FE78 = CF 02 FB 00105 CALLS #2, REMOVE _SEG F 
50 000000006 18F DO 0010A 10$:  MOVL = #DCX$_NORMAL, RO ; 12 
04 00111 RET : 1 


3; Routine Size: 274 bytes, Routine Base: $CODE$ + 0528 


ee ee — a 


Sue, Guta es nen © Ould 8 tmp Segeent 1b-bep-1964 $3:48i8  HeeddWeAAteaschci sec Sananvze.e32:4 page 29 


=000 
3 8 19 3 1 SSBTTL ‘build_map_seg - Build a map segment’ 
; : ; 1 i poyl int build_map_seg (ani : REF BBLOCK, anlseg : REF BBLOCK, dcxsbm : REF BBLOCK) = 
; ¢ 1 : 164 
: 1224 ! 
; ¢ : 5 ! Build a map segment 
; ! 3 Inputs: 
; 8 1 5 i ant Address of anl block 
; 9 1250 i anlseg Analysis segment structure address 
3 ary ; 1 dcxsbm Analysis of allocated map segment 
; ri} 1 é i Outputs: 
; Bs 1934 5 i | 
3 4 1235 i dcxsbm Filled in 
; 5 1 6 i 
: $ 1 i Return value: 
; 84 1238 i 
3; 848 1239 i dcx$_normal ALL is well 
; 849 1240 ie 
; 850 1241 | 
H 51 1 eg LOCAL 
3 26 124 flags : REF BITVECTOR, 
8 5 1244 nodes REF VECTOR C, vones | 
3; 854 1245 next : REF VECTOR agi DJ, 
; 855 1246 pl : REF VECTOR fé. 10 | 
; 856 124 pe REF VECTOR [6 tone). ° 
3 gee 1248 pyr LONG nae into list 
: 38 49 ist : VECTOR [6 * anlseg$c_count, Longs ' storage list 
; 1251 2 BIND | 
3 oe! : 26 count = anlseg Canlseg$l_count] : VECTOR C, LONG]; 
; Bes 1254 flags = .dcxsbm + “@cushe tdexsbabw flags]; 
3 864 1255 2 nodes = .dcxsbm + .dcxsbm Cdcxsbm$w_nodes]: 
; 865 : 28 a eae Cdexsbmow. next] NEQ 
; 7 1258 next = .dcxsbm + .dcxsbm Cdcxsbm$w_next] 
: 162) ELSE 
3 9 1260 a = 0; 
3 130) 
3 1 $6 pis s 
3 : o7 1 Fon a count-1 TO 0 DO 
: 1265 Ht “8 = .count [.i 
i 8? 66 1 (3) Kea 0 oR WoT .ant Canl$v _bounded] 
; 9 1 68 4 thin 
: 8 1 $ 4 pi ‘} = 05 ' node offset 
; 87 1270 4 5 i character code 
; 1271 4 tree “eset (ptr. pl (0)); 
: re 1 % 4 Eu: 
. ce 
; Be 1275 IF .- Caniseg$w_active) EQ. 1 


’ x=boo 2 build_map_seg - Build a map segment 12-8004 98e $3:78:18 DLEKSVMGRASTE 


Liss=32_ v4.0-74 P | 
RUCK SRCTANALYZE.832:10 7" (105, 
$ 3 THEN 
i Rie: 
3) = ‘p2 (3): 
Seer: 
9 hy esert : * 51 £02) 
r, : 
tree. ptr, p 


DECR high FROM .anlseg Canlseg$w_active_r) - 2 TO 0 DO 
LOCAL 
p : VECTOR C2, LONG); 
= 2 0 REF VECTOR (6, LONG 
OF = BEd: REE VECTOR Fo’ toned: 
DECR i FROM 1 TO 0 DO 
BEGIN 


LOCAL 
q : REF VECTOR (6, LONG); 


Bee eS eSSESsSE 


e C.i] = q = tree_least (ptr); 
F .q C5) EQL dex$c_eor 
THEN 


flags [2*.high + .4] 
a $s . . 
nodes Ese cnigh * tJ 
ELSE IF .q (5) GEQ 0 
THEN 


WWW 


LEDRENLSSSLESLANLSSELERFARVS 


POPE DVIS SIP AA AA AD III BI BPE EE 


pgs -high + .i] 
nodes ghig + iJ 
IF .mext NEQA 0 

THEN 


BEGIN 
BIND 


next_seg_a = anlseg Canlsegs 
next_seg = next_seg_a [.q [5 


true; 
"q €5); 


MMNMNMNNIN 4 3 Soo 
WU 


ed ed ed ed ad md = OO 


NRO ODNAVNE WT @OOONOUE WN OO 


NOUN —OOONOUS WN oO 


L_next) : VECTOR C, LONG], 
J] : REF BBLOCK; 


font C.q (5] = .anlseg Canlseg$b_min_char]] = .next_seg Canlseg$w_id); 


WIS SON 


CWODODODODOVOVOOVDODOOWODOOVOOOODOOOODODOOODON0ONO 
a a ee ee ee a a a ad a 


END 
; ' | 
ess *,high + .i] = false; 
5 nodes Ese nigh : i] = .q fai; 
1 C80: wot 039 © wpe C32 
= e . P 
9 BI tA} = Righ; “ 
941 tree_insert (ptr, pl (0)); 


See Ge Geese 


Ours 


build_map_seg - Build a map segment 


RETURN dcx$_normal; 


oc 


14 


oc 


08 


11 | 
nS 1984 12:18:55 Dek: SRCSANAL YZE.832:1°9° (10), 
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! of build_map_seg 
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DCK_ANALYZE 
you=000 


11 
voe=000 build map_seg - Build a map segment 13-Sep-1984 93:78:18 DLEKSUMGMASTERS COCK SRCSANALYZE 8323127" (103 


+ 
| 


5 4 AE DO 001 VL. OP ; 
o¢ A ge Ae eb 136 ADDL2 Stns 12(R0) : 
A DO 001 VL HIGH 46(RO) ‘1 
4 =A 1 ce 158 MNEGL #1, 20(RO) + 1331 
69 ‘ 15F CLRO { 6) : 1332 
08 ee BE doles abies PTR : 
33 e 09 167 27$:  MOVL HS ,"R2 : 
D 16A BEQL $ : 
OC 2 0c Ad Di 1g CMPL (RO), 12(R2) : 
Q 1€ 001 BGEGU 28$ : 
53 9 1? MOVL R _H 3 
FF 1 BRB é : 
18 00178 28%:  BLEQU 298 : 
53 06 =A H 17A MOV (R2), _H : 
E? 11 0017 BRB 7$ : 
08 A 08 A p0 180 298:  MOVL (R2), 8(RO) ; 
5 08 A : 1 MOVAB &(R2). _H : 
é 3 DO 00189 308: MOVL RO, (. ; 
02 1 £4 0018C 31$:  SOBGEQ HIGH, ~32$ + 1284 
; 11 0018F RB 33$ ; 
FF 31 00191 + $ BRW 15$ : 
50 00000000G 8F 80 Oo Iee $: nove #DCX$_NORMAL, RO 3 1333 


; Routine Size: 412 bytes, Routine Base: S$CODE$S + 0630 


dcx$make_map - Compute mapping function 


S 


REFRRRRRELEA 


PUPP 


5 


SEES 


at 


MEWN §O OONOUS WNC ODNOUS WIN 


AAAS 


WWI 


AAA AAA NIAAA AIA AAAI WI 


REN SSSA PAN HS SaNouruns—oo 


a i ae a et a a ee ee ee ee ee ee a a a a ed ed ed 
onvo0o 


2 
° 
8 
° 
7 
° 
. 
e 
2 
o 
* 
o 
- 
e 
7 
& 
- 
o 
. 
2 
° 
” 
2 
° 
- 
° 
° 
. 
° 
7 
° 
° 
o 
o 
. 
© 
© 
° 
7 
c 
. 
a 
o 
a 
° 
° 
- 
& 
. 
6 
& 
. 
w 
. 
e 
. 
° 
° 
° 
. 
° 
° 
oe 
o 
. 
o 
© 
° 
. 
° 
a 
o 
o 
° 
a 
a 
© 
° 
. 
_ 
7 
6 
a 
7 
e 
© 
ao 
~ 
a 
e 
° 
. 
o 
o 
° 
o 
° 
o 
. 
o 
2 
o 
. 
° 
. 
6 
o 
a 


Oe 


} RSBTTL ‘dcx$make_map = Compute mapping function’ 


Compute mapping function 


Return value: 


eee ee eerie , , | 
om 


status.wilc.v 
dcx$_normal ALL is well 
dcx$_invctx Invalid context block 
LibS_insvirmem 
BUILTIN 
NULLPARAME TER; 
BIND 


ctx = .context_addr : REF BBLOCK 

anl = ctx CetuSl_specitic) : BBLOCK, 

dcxmap = ctx Cctx$l_map] : REF BBLOCK; 
LOCAL 

seg : REF BBLOCK, 

size; 
nap addr = 0; 
if NOT NULLPARAMETER (3) 
THEN 

-map_size = 0; 
: validate context block 
perform (dcx$ctx_check (.ctx, ctx$c_anlyz)); 
Compute ratio of estimated to observed data size. 
Give priority first to an estimate of data size 
then to an estimate of number of records, and if 
neither of these is provided, assume that estimated 
is equal to observed. 


i zent Canl$v_est_bytes] AND .ani Canl$l_est_d_bytes] GIR 0 


] 
i 
i 
T 


fPodeo-1964 35:88:18 


1 5h ROUTINE dcx$make_map (context_addr, map_addr, map_size) = 
+ 


a — - - . ) 


32_V4.0-74 P 
RICDCK SRCSANALYZE.832;1°% (195 


Inputs: 
context_addr.mz.r Address of context longword 

Outputs: 
context_addr.mz.r Context block accumulates data 
map_addr.wa.r Address of longword to receive map address 
map_size.wl.r Address of longword to receive map length 


12 | 

DCX_ANALYZE 18.56 1984 23:38: VAX=-11 Bliss-32 V4.0-74 Pp 5 
=000 dcx$make_map - Compute mapping function 1a-8ep-1984 13:48:88 DT SKSVMSMASTERSCDCK. SRCSANALYZE.832: 1°" (17). 

95 | 


BEGIN 
ant Lani$l_ratio_num) = .ant Canl$l_d_bytes); 
38 ant Lanl$l_ratio_denom] = .anl LantSl-est.d_bytes); 


9 N 
39 LSE IF .anl Cani$v_est_recs] AND .anl Canl$l_est_d_recs] GTR 0 


HEN 
BEGIN 
ant Canl$l_ratio_num] = .anl Canl$l_dr 


S333 


SeSeSRaess 


—OOODNAO VUES WN “OVO OSVNOUES UNO 


d_recs]; 
ant Lanl$llratio_denom] = .anl Canl$l-est_d_recs]; 


END 
ELSE 


Soe 
Wr=SDSoo 


— 


ant Canl$l_ratio_num] = 1; 
pnt anl$l_ratio_denom] = 1; 


pre-process data 
DECR depth FROM .anl Canl$b_depth] TO 1 DO 
BEGIN 


seg : REF BBLOCK; 


po emo fololololeolelolelololola! 


seg = .anl Canl$l_flinkj; 
WH LE ese NEQA anl Cani$q_queue] DO 


LOCAL 
next_seg : REF BBLOCK; 


nextseg = .seg Canlseg$l_flink]; 


WANA AAR PIPUNINPOPOPUININID) 2 2 SO 
VMiFUN OO OBNOUSWN—OVOONOusr 


o 


ue -seg Canlseg$b_depth) EQL .depth 
-seg Canlseg$l_chars] EQ. 0 


pe mw alo lolol olololo~) 


Www 


WALA ARO PO PIPONINIPININID 2 2 OO 


-seg Canlseg$w_sons] EQL 0 


wn 


THEN 

ps og  MNEYE,, 908 (anl, .seg) 

. perform (huffman_size (ant, .seg)); ! compute compressed size 
peg * -next_seg; 


MEW —OO0ean 


} 
| 
| 
} 
| 
| 
| 
| 
LOCAL | 
| 
| 
| 
| 
| 
} 
| 
| 
| 


amos 


END; 
DECR gente FROM .anl Canl$b_depth] TO 1 DO 
BEGIN 


!' random tree Listhead 
oR (5, LONG), 
£5 * dcx$c_max_segs, LONG], 


pl = List C0 
= s 2 
Seg = .anl PaAtst_ttink); 


3 3 
37 
3% 
37 
| 
| 
; 1 
3; 7 
$7 
3) 
31 
3 7 
3 1 
3 7 
3 7 
3 3 
3 
3 7 
3 
3 3 
3 
3; 7 
3 7 
3 
3 1 
3; 7 
3 7 
3 3 
3; 7 
3; 3 
3 3 
3 1% 
3; 7 
; 1 
3} 
Zz. 
3 7 
3% 
; 1 
3 7 
3 7 
3 1 
3 7 
3 1 
3 7 
3 1 
3 7 
: 1 
3 7 
3 7 
3 7 
3 1 
3 7 
3 7 
3 7 
3 7 
g 3 
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—SOOONOUNEWN—O0On 
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3 1 14 3 WHILE .seg NEQA ani Canl$q_queue) 00 
J a z 

; 5 14 5 4 any *3°9 Canlseg$b_depth] EQL .depth 
: 1 14 5 4 -seg Canlseg$w_sors]) FOL 0 
. a ; 

; ISty 1099 eh ith) = “seg Canlseg$l_chars); 

: 1972 1236 tree ~insert "Wer. pi (0)); 

: Spe 106% 4 

: he re 4 seg = eg Caniseg$l_flink]); 

: 1079 1209 WHILE (p1 = tree_least (ptr)) ae 0 00 

; 1078 1468 perform (eliminate_seg (anl, .p1 [4])); 
St a 

: 1081 1471 ! Compute size of map 

1088 1258 $ ig = 0; 

+ 1084 1474 5 size = dcexmap$k_Length; 

3; 1085 1475 seg = .anl CanlSi_flin 

: 1086 147% WH LE seg NEQA anl fale. queue] DO 

; 1088 13% ree, Coniseatv.td) = 44; 

$ 1090 1480 Ms fh = .size + dexsbm$k_length; 

: 1091 1481 Size = “Size + Fs *(.seg Lanlseg$w soctive. rl: :? +7) /8; 
3 1036 oes . ze = 5 ze + 2*(.seg bent segs w_active 

3 oor tt it? anlseg$i_ tlink] NEQA seg LanldegSl.. Link) 
: 1095 1485 ae = ,size + 2 * (.seg Canlseg$b_max_char] - .seg Canlseg$b_min_char] + 1); 
3 ine 1486 i = .seg Lanlseg$t_ flink]; 

ee 8 hes 

: 1099 1489 ! Allocate map and populate 

: 1101 1491 (dex$get_vm (.size, dcxmap)); 

3 1396 1638 dcxmap Cdcxmap$l_size] = _.size; 

3 110 149 dcxmap Cdcxmap$w_version] = a version; 

3: 1104 1494 dcxmap . dcxmapst apes J= oo c_Sanity; 

3 1105 1495 dcxmap Cdcxmap$\— lags] = 0 = 

: 1108 1038 dcxmap ccxnepou_ ae 

3; 110 149 IF .id NEQ 

: 1109 1299 - "BEGIN 

We HBF coca 

: 1118 130¢ seg _: REF BBLOCK 

; 1113 0 dcexsbm : REF BBLOCK; 

+ 1115 130 dcxmap Cdcxmap$y sti: = dcexmap$k_length; 

: 1138 1206 seg = ant ah 

3111 150 dcxsbm = wes cécuag psy _sub0); 
3 1118 1508 WHILE .seg “NEOAY a" anl$q. queue! 


“11 ss-32 V 


12 
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dcx$make_map - Compute mapping function 14-Seo- 
1 09 4 BEGIN 
dcxsbm (dexsbm$w_ size) = dcxsbm$k_ ength 
dcxsbm Gcxsbasb_ min char] = .seg Lan segsb. min “chard: 
dcxsbm Ldcxsbm$ be <max_char] = .seg Canlseg$b_max_char 
dcxsbm [dcxsbm$b_escape] = 0; 
dcxsbm [dcxsbm$v_escape] = fa 


lise 
dcexsbm Cdcxsbm$v-unbounded) = false: 
dcxsbm Cdcxsbm$w_ flag 2 = .dexsbm Cdcxsbm$w 3312 ]; 
dcxsbm [dcxsbm$w_s as = .dcxsbm Cdcxsbm$w_§ + (2e(, seg Lanlseg$w_active_rJ-1) + 7) / 8; 
qcnepe qexspagy. u.node es] = sGcxsba, pocusbase “-$ 29; 
re .dexsbm Cdcxsbm$w size] + 2*(. seg Canlseg$w_active_rJ-1); 
IF se a poe tlink} NEQA .seg Lanlseg$l_bl ink) 


> b>) 5 > > _2 _» 2 > 


NO OONAOUEWN $0 OOBNOULS WN —OVOOVNOUS 


BEGIN 
dcxsbm Edcxsbm$w_next] = .dcxsbm Cdcxsbm$w_sizel]; 
dcxsbm Cdcxsbm$w_size] = .dcxsbm Cdcxsbm$w_size] + 2 * ( seg Canlseg$b_max_char] - .seg Canlseg$ | 


dcxsbm Cdcxsbm$w_next] = “s 


Pe Se Se Se Ge Se Se Ge Ge Ge Be Se Se Se Ge Se Se os Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se ee 
a ea ee ee 8 ee ce ed ee ed ed ed oe 
ee et ce De ee ee ee ed ee ee 
ca ee ee ee ee ee ee a ed ed ed ed 


=NNININININNWNE WAS BEE PNNNE SESS LEP SE 


8 build. _map_seg fant, 7seg, “fae 
9 dexsbm = sdcxsbm + .dcxsbm ape at size]; 
re 2 pe = .seg anlseg$i_ flink]; 
tg : e ,écusbe NEQA (.dcxmap + .dcxmap Cdcxmap$l_size)) | 
44 5 RETURN ss$_accvio; 
45 5 ND; 
46 5 ma addr = ,dcxma api 
47 5 IF T NULLPARAMETER (3) 
48 5 THEN 
49 5 size = .size; 
20 2 RETURN erat “pornal: 
52 54 END; ! Of dcx$make_map 
| 
} 
| 
OFC 00000 SENTRY DCXSMAKE MAP, Save R2,R3,R4,R5,RO,R7 : 1340 | 
5E AFFC CE QE BONs MOV 484 (SP) $ 
54 04 BC 14 C1 000 ADDL » @CONTEXT_ADDR, R4 : 1370 
55 06 BC 10 C¢1 0000C ADDL 6 aCONTEXT. ADDR, R5 3: 1571 | 
08 BC bs 011 CLRL at ADDR : 1378 | 
03 +9 1 14 CMPB (AP)? ; 1579) 
08 iF 00017 BLSSU 1 3 | 
oc Ag rf Bate TSTL 12(AP) 3 
03 1 1¢ BEQL : | 
0c Bf D4 0001 CLRL @MAP_SIZE 3 138) | 
1 D4 1$ CLRL R1 3: 1585 | 
50 04 Be g MOVL prourent ADDR, RO : 
00006 BSBW DCXSCTX et ECK $ 
70 3 E A BLBC STATUS, 8$ 3 
1 64 E1 D BBC #2, (Rd), 28 > 1393 | 
0c Ad if ist 12¢R4) ; | 
20 AG 04 <A4& 00 00036 MOVL 4(R4), 32(R4) : 1396. 


DCK_ANALYZE 
v04=000 
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dcx$make_map = Compute mapping function 4-Sep-1 DISKSVMSMASTER: COCX. SRC JANALYZE .832; 
24 AG 0c As 00 ; MOVL Te 36(R4) ; 1335 
1 64 03 €£ 42 2% BBC #3, (R46), 3$ + 1399) 
10 Ad : 4 TSTL giR4) : 
O¢ 4 BLEG : 
0 AG 08 AG OD 4 MOVL (R4) 3g(R4) + 1402 | 
4 Ab Ad D MOVL GRAS, 6(R4) t 1403) 
: 1 BRB 4 ; 1399 
0 A 06 3$ MOVL #1, 32(R4) + 1407 | 
4 AG 1 p B MOVL #1, 36(R4) + 1408 | 
53 16 AS 9A OO05F 48 MOVZBL 20(R4), DEPTH ; 1413) 
33 06 06 INCL DEPTH : | 
F BRB 10$ : 
52 18 AG pO 06 5$: MOVL gh (RG), SEG + 1419) 
18 «AG 6B 6$: MOVAB 24(R4). R ; 1420) 
50 3 D OO6F CMPL SEG, RO ; | 
56 é bd Sone Rove (Sé6) NEXT_SEG + 1426. 
53 16 A2 08 09 &D 00077 CHPZV #0. WB, 20(SEG), DEPTH ; 1038 | 
1 7D BNEQ 7$ : | 
2c «=6A2 «+S 0007F TSTL  44(SEG) + 1430 
10 1 0082 BNEO 46 7$ ; 
1¢ a2 B5 000 TSTw ¢8(SEG) + 1432) 
08 12 00087 BNEQ $ : 
52 0D 00089 PUSHL SEG : 1434) 
54 DD 00088 PUSHL  R4 ; | 
FC42.—sOCF 02 FB C008 CALLS #2, REMOVE_SEG : 
Op 11 00092 BRB 9$ : 
2 DD 00094 7$ PUSHL SEG : 1436 
54 DD 0009 PUSHL R4 ; 
FA8B CCF 08 FB 009 CALLS #2, HUFFMAN_SIZE : 
01 F 0090 8$: BLBS § STATUS, 9$ : 
4 OOOA0 RET F 
52 56 DO 000A1 9S: MOVL §NEXT_SEG, SEG t 1437 
¢ 11 000A4 BRB : 1420 
E F5 000A6 10$:  SOBGTR DEPTH, 5$ : 141 
* 14 Aa 9A 000A9 MOVZBL 20(R4), DEPTH > 1440 
56 06 OOAD INCL DEPTH F 
0090 OOAF BRW 24$ ; 
bE p4 00B2 11$:  CLRL PTR + 1449 
52 4 AE ; 008 MOVAB LIST, P1 + 1450 
1 8 AG p 0088 MOVL 4(R4), SEG : 1451 
30 18 AG OOBC 12$:  MOVAB 24(R4). R + 1452 
0 51 : 99¢ CMPL : g. RO : 
48 ¢ BEQL : 
56 16 «Al 08 Q f 00¢ CMPZ7V #0, #8, 20(SEG), DEPTH : 1455 | 
c 00¢B BNEQ =-«-17$ ; | 
1¢ al a 0 ¢ Ist #8( SEG) + 1457 
0c ag 2c Al OD ° D MOVL  44(SEG), 12(P1) : 1460 | 
10 A 51 p D MOVL SEG, 16(P1) : 1461 | 
62 C 00008 CLRO 3s (PI + 1462. 
08 A pd D CLRL =: &(P1) ; 
53 of E MOVAB PTR, _H : 
0 6 p £3 13$: MOVL (_HS,~RO : 
10 EG BEQL 188 : 
9c AO 0c A2 D E CMPL =: 12(P1), 12(RO) : | 
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vouz000" dcx$make_map = Compute mapping function 
. i 
50 C i 
ee 2 
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™ 3 000000006 Hi : 


Routine Base: $CODE$S + 0709 


; Routine Size: 633 bytes, 


1986 13:78:38 


bate 
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5 


AX- iss- 
DISKSVMSMAS TER: CD 


XSBM, RO 


2, RO 


ame ADDR 


AP), #3” 


.s 


P 
$ 
(AP 
5 
ZE 
Cx 


AP) 


§ AORMAL Fo 


4.0-7 
Cx. 


Ske ANALYZE .832; (39 


eft 
(11) 


DCE ANALYZE bi 0-19 4 t $337 18 VAX-11 Bliss-32 V Page 


dcxSanalyze_done -- release context ard map 12-8001 88¢ 1 Disk K$V. nen MASTER: be i SRCSANALYZE. B32;1 
! ZSBTTL ‘dcexS$analyze_done -- release context and map’ 


135 
45 1 5 ROUTINE dcx$analyze_done (context_addr) = 

'e¢ 

i Release context and map 

i Inputs: 

context_addr.mz.r Address of context longword 


' 
! 
! 
! 
' 
' 
' 
Outputs: 
! 
1 
! 
! 
1 
' 
‘i 
! 


context_addr.mz.r Context block accumulates data 
22 i Return value: 
56 
? status.wic.v 
27 dcx$_normal ALL is well 
65 : 
BIND 
ctx = .context_addr : REF BBLOCK ! address of context block 


ant = ctx Cetx$l _specific] : BBLOCK; 


SAAO 


LOCAL 
anlseg : REF BBLOCK; 


erform (dcx$ctx ogheck (.ctx, ctx$c_anlyz)) 
LE NOT remque (.anl [ Cantst wh ing. iantseg) D 
perform (dcx$free_vm (.anTse nlsegsl si sized, -anlseg)); 
per fore (dex$free_vm T.ctx ctxsl I zel, .ctx) 
0; '“mark safheee as gone 
RETURN dcx$_ normal; 


1 END; ! Of dcx$analyze_done 
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o01¢ 00 09 ENTRY DCXSANAL YE DONE, Save R2,R3,R4 > 154 
54 06 ac D MOVL £20. tna DOR, R4 : 156 
53 64 14 C1 00006 ADDL3 ¥ ORS : 156 
51 D4 A CLRL : 157 
50 64 C MOVL : 
at OF BBW Ede vec : 
52 18 oF if 1$ REMQUE a34cn3), ANLSEG : 1574. 
D 00018 VS ; 
DD OOO1A PUSHL  ANLSEG : 1575 
08 A2 dD 0001C PUSHL  8(ANLSEG) : 
00006 CF Q Fe 1F CALLS #2, DCXSFREE_VM : 
ED F 3 2$ BLBS § STATUS, 1$ ; 
4 7 RET : 


vata 


; Routine Size: 


dcx$analyze_done -- release context and map 
4 OD 

00 4 D 
00006 ff § 8 

9 E 


ge D4 
50 000000006 68F 0 : 


63 bytes, Routine Base: S$CODES + 0A52 


12 
bse 
12-8882} 


3$: 


4$: 


9b F2:8:58 DiSkbunsma 


CALL he i DeSEREE. vm 


4 
MOVL #DCXS_NORMAL, RO 


$-3 
HS Pree 


OSRCSANALYZE. 832; ? 


Bete Ge Ge Fe Sete 


ge 43. 
9713) 
1576 


1193 1581 1 END 
1194 1882 0 ELUDOM 
PSECT SUMMARY 

Name Bytes Attributes 

SCODES 2705 NOVEC,NOWRT, RD, EXE,NOSHR, 
Library Statistics 
eoeeee== Symbols -------- 

File Total toaded Percent 

.$255$DUA28: CSYSLIBISTARLET.L32;1 9776 7 0 


COMMAND QUALIFIERS 


LCL, 


) LYZE “Sep-19 :3 
vO4=000 dcx$analyze_done -- release context and map 15-}eo-1984 $3: 18: 48 
! Of module analyze 


Pages 
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VAX-11 Bliss-32 V4.0-74 
DISKSVMSMAST ER: COCK. SRC JANALYZE .832; 
CON,NOPIC ,ALIGN(2) 
Processing 
Time 
00:01.0 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: ANALYZE /OBJ=OBJ$: ANALYZE MSRC$:ANALYZE/UPDATE=(ENH$: ANALYZE) 


Stee: 
un Time 
oh, 
Lines/C 
Lexemes 


Compile 


2705 code + 0 data bytes 


taer 3 55:8 
PU Min: 1624 
/CPU-Min: 27047 
Used: 272 pages 
tion Complete 


ate se 
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